# name : survminer ggsurvplot
# key: ggsurvplot
# contributor: Shuguang Sun
# --
require(survminer)
fit <- survfit(Surv(AVAL, EVNT) ~ ARMCD1$0, data=${1:data})
ggsur <- ggsurvplot(
  fit = fit,
  data = $1,
  risk.table = TRUE,
  conf.int = TRUE,
  pval = TRUE,
  break.time.by = 1,
  ## tables.height = 0.2,
  ## risk.table.fontsize = 4,
  title = "KM Curv in ITT Population",
  xlab = "Month"
)
ggsur <- ggpar(
  ggsur,
  ## font.title    = 12,
  ## font.subtitle = 10,
  ## font.caption  = 12,
  ## font.x        = 9,
  ## font.y        = 9,
  ## font.xtickslab = 8,
  ## font.ytickslab = 8,
  ## fontsize = 8,
  legend = "none"
)
ggsur
